Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class Flagpole
    Implements ICloneable

    Private m_Selected As Boolean = False
    Private m_Flagdf As Double = 0
    Public Property Selected() As Boolean
        Get
            Return Me.m_Selected
        End Get
        Set(ByVal value As Boolean)
            Me.m_Selected = value
        End Set
    End Property
    Public Property Flagdf() As Double
        Get
            Return Me.m_Flagdf
        End Get
        Set(ByVal value As Double)
            Me.m_Flagdf = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New Flagpole
        obj.m_Selected = Me.m_Selected
        obj.m_Flagdf = Me.m_Flagdf
        Return obj
    End Function
End Class
